(Fload): Call Vload_source_file_function with 4 args.

diff --git a/src/lread.c b/src/lread.c
index 4e2ed5ccd2aae73e2f73e6b26ac3b8c746021db0..882b09bf5a39dcdbee26ccb57cdaf49e8e31b05a 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -483,7 +483,7 @@ Return t if file exists.")
       if (!NILP (Vload_source_file_function))
        {
          close (fd);
-         return call3 (Vload_source_file_function, found, file,
+         return call4 (Vload_source_file_function, found, file,
                        NILP (noerror) ? Qnil : Qt,
                        NILP (nomessage) ? Qnil : Qt);
        }